/* GUI CONVERTED from icedit4.p (converter v1.76) Mon Apr  8 13:48:46 2002 */
/* icedit4.p - RUN FILE TO EDIT INVENTORY TRANSACTION INPUT                   */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.6 $                                                           */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 7.2      LAST MODIFIED: 08/17/95   BY: qzl *F0TC*                */
/* REVISION: 8.5      LAST MODIFIED: 12/22/95   BY: kxn *J09L*                */
/* REVISION: 8.5      LAST MODIFIED: 01/05/97   BY: *J1DH* Julie Milligan     */
/* REVISION: 8.6      LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan         */
/* REVISION: 9.1      LAST MODIFIED: 08/13/00   BY: *N0KS* Mark Brown         */
/* $Revision: 1.6 $    BY: Jean Miller           DATE: 04/06/02  ECO: *P056*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/*                                                                      */
/* {&transtype}  ""ISS-SO"", ""RCT-PO"" etc.                            */
/* {&base_site}  sod_site, wo_site, pod_site, wip_site etc.             */
/* {&site}       actual receipt or shipment site.                       */
/* {&ptloc}      pt_loc.                                                */
/* {&location}   actual location in receipt or shipment site.           */
/* {&part}                                                              */
/* {&lotserial}                                                         */
/* {&quantity}   In terms of pt_um                                      */
/* {&um}         The issue or receipt um                                */
/* {&wonbr}      Work order number                                      */
/* {&wolot}      Work order ID                                          */
/*                                                                      */
/*                                                                      */
/* "ISS-TR" and "RCT-TR" transactions occur when receiving site or      */
/* issuing site is different from actual receiving site or issuing      */
/* site. This program is created to validate the transaction trilogy:   */
/* {&transtype}, "ISS-TR", and "RCT-TR".                                */
/*                                                                      */

{mfdeclre.i}

define input parameter transtype like tr_type no-undo.
define input parameter base_site like tr_site no-undo.
define input parameter site like tr_site no-undo.
define input parameter ptloc like pt_loc no-undo.
define input parameter location like tr_loc no-undo.
define input parameter part like tr_part no-undo.
define input parameter lotserial like tr_serial no-undo.
define input parameter lotref like tr_ref no-undo.
define input parameter lotserial_qty like sr_qty no-undo.
define input parameter trans_um like pt_um no-undo.
define input parameter wonbr like wo_nbr no-undo.
define input parameter wolot like wo_lot no-undo.

define output parameter undo-input like mfc_logical.

define variable iss_yn like mfc_logical no-undo.

iss_yn = no.                                 /* RECEIPT */
if transtype begins "ISS" then
   iss_yn = yes. /* ISSUE   */

{gprun.i ""icedit3.p""
   "(transtype,
     base_site,
     ptloc,
     part,
     lotserial,
     lotref,
     0,
     trans_um,
     """",
     """",
     output undo-input)"}
/*GUI*/ if global-beam-me-up then undo, leave.


if undo-input then return.

{gprun.i ""icedit3.p""
   "(""ISS-TR"",
     if iss_yn then site else base_site,
     if iss_yn then location else ptloc,
     part,
     lotserial,
     lotref,
     if not iss_yn then 0 else lotserial_qty,
     trans_um,
     """",
     """",
     output undo-input)"}
/*GUI*/ if global-beam-me-up then undo, leave.


if undo-input then return.

{gprun.i ""icedit3.p""
   "(""RCT-TR"",
     if iss_yn then base_site else site,
     if iss_yn then ptloc     else location,
     part,
     lotserial,
     lotref,
     if iss_yn then 0 else lotserial_qty,
     trans_um,
     wonbr,
     wolot,
     output undo-input)"}
/*GUI*/ if global-beam-me-up then undo, leave.

